home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_eval.exe / %MAINDIR% / Interface / FPTShellLocatorEditor.int < prev    next >
Encoding:
Text File  |  2001-08-31  |  1.8 KB  |  60 lines
  1. unit FPTShellLocatorEditor; // Copyright ⌐ 1996-2001 Plasmatech Software Design. All rights reserved.
  2. {
  3.  Shell Control Pack
  4.  Version 1.6
  5.  
  6.  Implements the shell locator property editor.
  7.  
  8.  History
  9.  ===================================================================================================
  10.  V1.6   2Jul01 Delphi 6 release, no changes.
  11.  V1.5c 30Mar01 No changes.
  12.  V1.5b 12Dec00 No changes.
  13.  V1.5a 14May00 No changes.
  14.  V1.5   3Mar00 C++Builder 5 release, no changes.
  15.  V1.4a 15Dec99 No changes.
  16.  V1.4  14Sep99 Delphi 5 release, no changes.
  17.  V1.3h 29Mar99 No changes.
  18.  V1.3g  1Dec98 Added SetHelpInfo method.
  19.  V1.3f 12Jul98 Delphi 4 release, no changes.
  20.  V1.3e 22Apr98 No changes.
  21.  V1.3d 18Apr98 No changes.
  22.  V1.3c 16Mar98 C++Builder 3 support.
  23.  V1.3b  7Feb98 No changes.
  24.  V1.3a  7Jan98 Minor form changes to support new TPTGroup control features.
  25.  V1.3  28Nov97 No changes.
  26.  V1.2b 12Oct97 No changes.
  27.  V1.2a  5Oct97 No changes.
  28.  V1.2   6Sep97 No changes.
  29.  V1.1a  6Jul97 Added NT types to the csidl combobox.
  30.  V1.1  26Jun97 No changes.
  31.  V1.0c 31May97 No changes.
  32.  V1.0b 17May97 Fixed bugs. Delphi 3 support.
  33.  V1.0a  1May97 No changes.
  34.  V1.0  21Apr97 Released version 1.0
  35. }
  36.  
  37. {$INCLUDE PTCompVer.inc}
  38.  
  39. {$RANGECHECKS OFF} {$OVERFLOWCHECKS OFF} {$WRITEABLECONST OFF}
  40. {$BOOLEVAL OFF}    {$EXTENDEDSYNTAX ON}  {$TYPEDADDRESS ON}
  41.  
  42. interface
  43. uses
  44.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  45.   UPTFrame, StdCtrls, UPTShellControls, FPTOpenDlg, FPTFolderBrowseDlg, UPTShellUtils;
  46.  
  47. type
  48.   TFrmShellLocatorEditor = class(TForm)
  49.   public
  50.     property Locator: TPTShellLocator read mLocator write SetLocator;
  51.     class procedure SetHelpInfo( aHelpFile: String;  aHelpId: Integer );
  52.   end;
  53.  
  54. var
  55.   FrmShellLocatorEditor: TFrmShellLocatorEditor;
  56.  
  57. function GetCSIDLStr( id: TCSIDL ): String;
  58.  
  59. implementation
  60.